home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1987-06-22 | 9.6 KB | [TEXT/EDIT] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: tabedit.pas
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| TheDraw Pascal screen Image (image/theDrawPascalScreenImage)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Mon Jun 22 06:15:45 1987, modified Mon Jun 22 06:15:45 1987, creator Macintosh Edit, type ASCII, 9334 bytes "tabedit.pas"
| default (weak)
| |
| 99%
| file
| Mathematica 3.0 notebook, at 0x24f6 349 bytes resource
| default (weak)
| |
| 98%
| file
| Mathematica 3.0 notebook
| default (weak)
| |
| 97%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [EDIT] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 74 61 62 65 64 69 | 74 2e 70 61 73 00 00 00 |..tabedi|t.pas...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 24 76 00 | 00 01 5d 9d 02 b4 51 9d |.....$v.|..]...Q.|
|00000060| 02 b4 51 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..Q.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bb 78 00 00 |........|.....x..|
|00000080| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|000000d0| 0d 0d 70 72 6f 67 72 61 | 6d 20 74 61 62 65 64 69 |..progra|m tabedi|
|000000e0| 74 3b 0d 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |t;..(***|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 29 0d 0d 09 75 | 73 65 73 20 6d 61 63 69 |***)...u|ses maci|
|00000140| 6e 74 66 3b 0d 09 0d 09 | 7b 24 4c 20 72 73 72 63 |ntf;....|{$L rsrc|
|00000150| 2e 72 65 6c 09 09 09 09 | 09 7d 0d 09 7b 24 54 20 |.rel....|.}..{$T |
|00000160| 41 50 50 4c 20 42 52 41 | 44 09 09 09 09 7d 0d 09 |APPL BRA|D....}..|
|00000170| 7b 24 42 2b 09 09 09 09 | 09 09 09 7d 0d 09 0d 09 |{$B+....|...}....|
|00000180| 7b 24 55 09 74 61 62 67 | 6c 75 65 09 09 09 09 7d |{$U.tabg|lue....}|
|00000190| 0d 0d 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*****|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001e0| 2a 29 0d 0d 09 63 6f 6e | 73 74 0d 09 09 0d 09 09 |*)...con|st......|
|000001f0| 61 70 70 6c 65 6d 65 6e | 75 09 09 3d 09 33 30 31 |applemen|u..=.301|
|00000200| 3b 0d 09 09 66 69 6c 65 | 6d 65 6e 75 09 09 09 3d |;...file|menu...=|
|00000210| 09 33 30 32 3b 0d 09 09 | 65 64 69 74 6d 65 6e 75 |.302;...|editmenu|
|00000220| 09 09 09 3d 09 33 30 33 | 3b 0d 09 09 77 69 6e 64 |...=.303|;...wind|
|00000230| 69 64 09 09 09 09 3d 09 | 33 30 30 3b 0d 09 09 61 |id....=.|300;...a|
|00000240| 62 6f 75 74 69 64 09 09 | 09 3d 09 33 30 30 3b 0d |boutid..|.=.300;.|
|00000250| 0d 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.(******|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 29 0d 0d 09 74 79 70 65 | 0d 09 09 0d 09 09 74 61 |)...type|......ta|
|000002b0| 62 72 65 63 6f 72 64 09 | 09 3d 09 72 65 63 6f 72 |brecord.|.=.recor|
|000002c0| 64 0d 09 09 09 74 61 62 | 74 65 09 09 09 3a 09 74 |d....tab|te...:.t|
|000002d0| 65 68 61 6e 64 6c 65 3b | 0d 09 09 09 74 61 62 77 |ehandle;|....tabw|
|000002e0| 69 64 74 68 09 09 3a 09 | 69 6e 74 65 67 65 72 3b |idth..:.|integer;|
|000002f0| 0d 09 09 09 6c 61 73 74 | 74 61 62 09 09 3a 09 69 |....last|tab..:.i|
|00000300| 6e 74 65 67 65 72 3b 0d | 09 09 09 74 61 62 73 09 |nteger;.|...tabs.|
|00000310| 09 09 3a 09 61 72 72 61 | 79 20 5b 31 2e 2e 31 30 |..:.arra|y [1..10|
|00000320| 30 5d 20 6f 66 20 69 6e | 74 65 67 65 72 3b 0d 09 |0] of in|teger;..|
|00000330| 09 65 6e 64 3b 0d 09 09 | 74 61 62 70 74 72 09 09 |.end;...|tabptr..|
|00000340| 09 09 3d 09 5e 74 61 62 | 72 65 63 6f 72 64 3b 0d |..=.^tab|record;.|
|00000350| 09 09 74 61 62 68 61 6e | 64 6c 65 09 09 3d 09 5e |..tabhan|dle..=.^|
|00000360| 74 61 62 70 74 72 3b 0d | 09 09 0d 09 09 6c 6f 6e |tabptr;.|.....lon|
|00000370| 67 70 74 72 09 09 09 3d | 09 5e 6c 6f 6e 67 3b 0d |gptr...=|.^long;.|
|00000380| 0d 28 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.(******|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003d0| 29 0d 0d 09 76 61 72 0d | 09 09 0d 09 09 64 6f 6e |)...var.|.....don|
|000003e0| 65 09 09 09 09 3a 09 6c | 6f 67 69 63 61 6c 3b 0d |e....:.l|ogical;.|
|000003f0| 09 09 6d 79 77 69 6e 64 | 6f 77 09 09 3a 09 77 69 |..mywind|ow..:.wi|
|00000400| 6e 64 6f 77 70 74 72 3b | 0d 09 09 6e 6f 77 74 65 |ndowptr;|...nowte|
|00000410| 09 09 09 09 3a 09 74 65 | 68 61 6e 64 6c 65 3b 0d |....:.te|handle;.|
|00000420| 09 09 6e 6f 77 74 61 62 | 73 09 09 09 3a 09 74 61 |..nowtab|s...:.ta|
|00000430| 62 68 61 6e 64 6c 65 3b | 0d 09 09 74 65 78 74 63 |bhandle;|...textc|
|00000440| 75 72 73 6f 72 09 09 3a | 09 63 75 72 73 68 61 6e |ursor..:|.curshan|
|00000450| 64 6c 65 3b 0d 09 09 64 | 72 61 67 61 72 65 61 09 |dle;...d|ragarea.|
|00000460| 09 09 3a 09 72 65 63 74 | 3b 0d 09 09 73 74 64 74 |..:.rect|;...stdt|
|00000470| 65 64 6f 74 65 78 74 09 | 09 3a 09 6c 6f 6e 67 3b |edotext.|.:.long;|
|00000480| 0d 09 09 73 74 64 6c 69 | 6e 65 73 74 61 72 74 09 |...stdli|nestart.|
|00000490| 09 3a 09 6c 6f 6e 67 3b | 0d 09 09 67 6c 6f 62 61 |.:.long;|...globa|
|000004a0| 6c 61 37 30 09 09 3a 09 | 6c 6f 6e 67 70 74 72 3b |la70..:.|longptr;|
|000004b0| 0d 09 09 67 6c 6f 62 61 | 6c 37 66 63 09 09 09 3a |...globa|l7fc...:|
|000004c0| 09 6c 6f 6e 67 70 74 72 | 3b 0d 09 09 6d 79 71 64 |.longptr|;...myqd|
|000004d0| 70 72 6f 63 73 09 09 3a | 09 71 64 70 72 6f 63 73 |procs..:|.qdprocs|
|000004e0| 3b 0d 0d 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;..(****|********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000530| 2a 2a 29 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 74 |**)...fu|nction t|
|00000540| 61 62 74 78 6d 65 61 73 | 28 62 79 74 65 63 6f 75 |abtxmeas|(bytecou|
|00000550| 6e 74 20 3a 20 69 6e 74 | 65 67 65 72 3b 20 74 65 |nt : int|eger; te|
|00000560| 78 74 61 64 64 72 20 3a | 20 70 74 72 3b 0d 09 09 |xtaddr :| ptr;...|
|00000570| 09 09 09 76 61 72 20 6e | 75 6d 65 72 2c 20 64 65 |...var n|umer, de|
|00000580| 6e 6f 6d 20 3a 20 70 6f | 69 6e 74 3b 20 76 61 72 |nom : po|int; var|
|00000590| 20 69 6e 66 6f 20 3a 20 | 66 6f 6e 74 69 6e 66 6f | info : |fontinfo|
|000005a0| 29 20 3a 20 69 6e 74 65 | 67 65 72 3b 20 65 78 74 |) : inte|ger; ext|
|000005b0| 65 72 6e 61 6c 3b 0d 09 | 70 72 6f 63 65 64 75 72 |ernal;..|procedur|
|000005c0| 65 20 74 61 62 74 78 77 | 72 69 74 65 28 62 79 74 |e tabtxw|rite(byt|
|000005d0| 65 63 6f 75 6e 74 20 3a | 20 69 6e 74 65 67 65 72 |ecount :| integer|
|000005e0| 3b 20 74 65 78 74 62 75 | 66 20 3a 20 70 74 72 3b |; textbu|f : ptr;|
|000005f0| 0d 09 09 09 09 09 6e 75 | 6d 65 72 2c 20 64 65 6e |......nu|mer, den|
|00000600| 6f 6d 20 3a 20 70 6f 69 | 6e 74 29 3b 20 65 78 74 |om : poi|nt); ext|
|00000610| 65 72 6e 61 6c 3b 0d 09 | 70 72 6f 63 65 64 75 72 |ernal;..|procedur|
|00000620| 65 20 74 61 62 74 65 64 | 6f 74 65 78 74 3b 20 65 |e tabted|otext; e|
|00000630| 78 74 65 72 6e 61 6c 3b | 0d 09 70 72 6f 63 65 64 |xternal;|..proced|
|00000640| 75 72 65 20 74 61 62 6c | 69 6e 65 73 74 61 72 74 |ure tabl|inestart|
|00000650| 3b 20 65 78 74 65 72 6e | 61 6c 3b 0d 09 0d 28 2a |; extern|al;...(*|
|00000660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 0d |********|*****)..|
|000006b0| 09 70 72 6f 63 65 64 75 | 72 65 20 73 65 74 75 70 |.procedu|re setup|
|000006c0| 66 6f 72 74 61 62 73 28 | 72 65 73 69 64 20 3a 20 |fortabs(|resid : |
|000006d0| 69 6e 74 65 67 65 72 3b | 20 77 70 74 72 20 3a 20 |integer;| wptr : |
|000006e0| 77 69 6e 64 6f 77 70 74 | 72 29 3b 0d 09 0d 09 09 |windowpt|r);.....|
|000006f0| 76 61 72 0d 09 09 09 61 | 68 6e 64 6c 09 09 09 09 |var....a|hndl....|
|00000700| 3a 09 68 61 6e 64 6c 65 | 3b 0d 09 09 09 72 65 73 |:.handle|;....res|
|00000710| 68 6e 64 6c 09 09 09 3a | 09 68 61 6e 64 6c 65 3b |hndl...:|.handle;|
|00000720| 0d 09 09 09 74 61 62 68 | 09 09 09 09 3a 09 74 61 |....tabh|....:.ta|
|00000730| 62 68 61 6e 64 6c 65 3b | 0d 09 09 09 69 09 09 09 |bhandle;|....i...|
|00000740| 09 09 3a 09 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |..:.inte|ger;....|
|00000750| 77 69 64 74 68 7a 65 72 | 6f 63 68 61 72 09 3a 09 |widthzer|ochar.:.|
|00000760| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 62 74 61 62 |integer;|....btab|
|00000770| 73 69 7a 65 09 09 09 3a | 09 6c 6f 6e 67 3b 0d 09 |size...:|.long;..|
|00000780| 09 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 0d 09 09 |....begi|n.......|
|00000790| 09 61 68 6e 64 6c 20 3a | 3d 20 68 61 6e 64 6c 65 |.ahndl :|= handle|
|000007a0| 28 67 65 74 77 72 65 66 | 63 6f 6e 28 77 70 74 72 |(getwref|con(wptr|
|000007b0| 29 29 3b 0d 09 09 09 72 | 65 73 68 6e 64 6c 20 3a |));....r|eshndl :|
|000007c0| 3d 20 67 65 74 72 65 73 | 6f 75 72 63 65 28 27 62 |= getres|ource('b|
|000007d0| 54 41 42 27 2c 20 72 65 | 73 69 64 29 3b 0d 09 09 |TAB', re|sid);...|
|000007e0| 09 62 74 61 62 73 69 7a | 65 20 3a 3d 20 67 65 74 |.btabsiz|e := get|
|000007f0| 68 61 6e 64 6c 65 73 69 | 7a 65 28 72 65 73 68 6e |handlesi|ze(reshn|
|00000800| 64 6c 29 3b 0d 09 09 09 | 0d 09 09 09 73 65 74 68 |dl);....|....seth|
|00000810| 61 6e 64 6c 65 73 69 7a | 65 28 61 68 6e 64 6c 2c |andlesiz|e(ahndl,|
|00000820| 20 62 74 61 62 73 69 7a | 65 20 2b 20 36 29 3b 0d | btabsiz|e + 6);.|
|00000830| 09 09 09 74 61 62 68 20 | 3a 3d 20 74 61 62 68 61 |...tabh |:= tabha|
|00000840| 6e 64 6c 65 28 61 68 6e | 64 6c 29 3b 0d 09 09 09 |ndle(ahn|dl);....|
|00000850| 0d 09 09 09 74 61 62 68 | 5e 5e 2e 74 61 62 77 69 |....tabh|^^.tabwi|
|00000860| 64 74 68 20 3a 3d 20 63 | 68 61 72 77 69 64 74 68 |dth := c|harwidth|
|00000870| 28 63 68 72 28 39 29 29 | 3b 0d 09 09 09 0d 09 09 |(chr(9))|;.......|
|00000880| 09 62 6c 6f 63 6b 6d 6f | 76 65 28 72 65 73 68 6e |.blockmo|ve(reshn|
|00000890| 64 6c 5e 2c 20 40 74 61 | 62 68 5e 5e 2e 6c 61 73 |dl^, @ta|bh^^.las|
|000008a0| 74 74 61 62 2c 20 62 74 | 61 62 73 69 7a 65 29 3b |ttab, bt|absize);|
|000008b0| 0d 09 09 09 72 65 6c 65 | 61 73 65 72 65 73 6f 75 |....rele|aseresou|
|000008c0| 72 63 65 28 72 65 73 68 | 6e 64 6c 29 3b 0d 09 09 |rce(resh|ndl);...|
|000008d0| 09 0d 09 09 09 77 69 64 | 74 68 7a 65 72 6f 63 68 |.....wid|thzeroch|
|000008e0| 61 72 20 3a 3d 20 63 68 | 61 72 77 69 64 74 68 28 |ar := ch|arwidth(|
|000008f0| 63 68 72 28 34 38 29 29 | 3b 0d 09 09 09 77 69 74 |chr(48))|;....wit|
|00000900| 68 20 74 61 62 68 5e 5e | 20 64 6f 0d 09 09 09 09 |h tabh^^| do.....|
|00000910| 69 66 20 6c 61 73 74 74 | 61 62 20 3c 3e 20 30 20 |if lastt|ab <> 0 |
|00000920| 74 68 65 6e 0d 09 09 09 | 09 09 66 6f 72 20 69 20 |then....|..for i |
|00000930| 3a 3d 20 31 20 74 6f 20 | 6c 61 73 74 74 61 62 20 |:= 1 to |lasttab |
|00000940| 64 6f 0d 09 09 09 09 09 | 09 74 61 62 73 5b 69 5d |do......|.tabs[i]|
|00000950| 20 3a 3d 20 74 61 62 73 | 5b 69 5d 20 2a 20 77 69 | := tabs|[i] * wi|
|00000960| 64 74 68 7a 65 72 6f 63 | 68 61 72 3b 0d 09 09 09 |dthzeroc|har;....|
|00000970| 0d 09 09 09 77 70 74 72 | 5e 2e 67 72 61 66 70 72 |....wptr|^.grafpr|
|00000980| 6f 63 73 20 3a 3d 20 40 | 6d 79 71 64 70 72 6f 63 |ocs := @|myqdproc|
|00000990| 73 3b 0d 09 09 0d 09 09 | 65 6e 64 3b 0d 09 0d 28 |s;......|end;...(|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 29 0d |********|******).|
|000009f0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 73 65 74 75 |..proced|ure setu|
|00000a00| 70 6d 65 6e 75 73 3b 0d | 09 0d 09 09 76 61 72 0d |pmenus;.|....var.|
|00000a10| 09 09 09 6d 65 6e 75 74 | 6f 70 69 63 09 09 3a 09 |...menut|opic..:.|
|00000a20| 6d 65 6e 75 68 61 6e 64 | 6c 65 3b 0d 09 09 0d 09 |menuhand|le;.....|
|00000a30| 09 62 65 67 69 6e 0d 09 | 09 09 0d 09 09 09 6d 65 |.begin..|......me|
|00000a40| 6e 75 74 6f 70 69 63 20 | 3a 3d 20 67 65 74 6d 65 |nutopic |:= getme|
|00000a50| 6e 75 28 61 70 70 6c 65 | 6d 65 6e 75 29 3b 0d 09 |nu(apple|menu);..|
|00000a60| 09 09 61 64 64 72 65 73 | 6d 65 6e 75 28 6d 65 6e |..addres|menu(men|
|00000a70| 75 74 6f 70 69 63 2c 20 | 27 44 52 56 52 27 29 3b |utopic, |'DRVR');|
|00000a80| 0d 09 09 09 69 6e 73 65 | 72 74 6d 65 6e 75 28 6d |....inse|rtmenu(m|
|00000a90| 65 6e 75 74 6f 70 69 63 | 2c 20 30 29 3b 0d 09 09 |enutopic|, 0);...|
|00000aa0| 09 0d 09 09 09 6d 65 6e | 75 74 6f 70 69 63 20 3a |.....men|utopic :|
|00000ab0| 3d 20 67 65 74 6d 65 6e | 75 28 66 69 6c 65 6d 65 |= getmen|u(fileme|
|00000ac0| 6e 75 29 3b 0d 09 09 09 | 69 6e 73 65 72 74 6d 65 |nu);....|insertme|
|00000ad0| 6e 75 28 6d 65 6e 75 74 | 6f 70 69 63 2c 20 30 29 |nu(menut|opic, 0)|
|00000ae0| 3b 0d 09 09 09 0d 09 09 | 09 6d 65 6e 75 74 6f 70 |;.......|.menutop|
|00000af0| 69 63 20 3a 3d 20 67 65 | 74 6d 65 6e 75 28 65 64 |ic := ge|tmenu(ed|
|00000b00| 69 74 6d 65 6e 75 29 3b | 0d 09 09 09 69 6e 73 65 |itmenu);|....inse|
|00000b10| 72 74 6d 65 6e 75 28 6d | 65 6e 75 74 6f 70 69 63 |rtmenu(m|enutopic|
|00000b20| 2c 20 30 29 3b 0d 09 09 | 09 0d 09 09 09 64 72 61 |, 0);...|.....dra|
|00000b30| 77 6d 65 6e 75 62 61 72 | 3b 0d 09 09 0d 09 09 65 |wmenubar|;......e|
|00000b40| 6e 64 3b 0d 09 0d 28 2a | 2a 2a 2a 2a 2a 2a 2a 2a |nd;...(*|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b90| 2a 2a 2a 2a 2a 29 0d 0d | 09 66 75 6e 63 74 69 6f |*****)..|.functio|
|00000ba0| 6e 20 73 65 74 75 70 74 | 65 78 74 77 69 6e 64 6f |n setupt|extwindo|
|00000bb0| 77 28 69 64 6e 6f 20 3a | 20 69 6e 74 65 67 65 72 |w(idno :| integer|
|00000bc0| 29 20 3a 20 77 69 6e 64 | 6f 77 70 74 72 3b 0d 09 |) : wind|owptr;..|
|00000bd0| 0d 09 09 76 61 72 0d 09 | 09 09 68 6e 64 6c 09 09 |...var..|..hndl..|
|00000be0| 09 09 3a 09 68 61 6e 64 | 6c 65 3b 0d 09 09 09 72 |..:.hand|le;....r|
|00000bf0| 09 09 09 09 09 3a 09 72 | 65 63 74 3b 0d 09 09 09 |.....:.r|ect;....|
|00000c00| 6c 69 09 09 09 09 09 3a | 09 6c 6f 6e 67 70 74 72 |li.....:|.longptr|
|00000c10| 3b 0d 09 09 09 6d 79 77 | 09 09 09 09 3a 09 77 69 |;....myw|....:.wi|
|00000c20| 6e 64 6f 77 70 74 72 3b | 0d 09 09 09 61 74 65 09 |ndowptr;|....ate.|
|00000c30| 09 09 09 3a 09 74 65 68 | 61 6e 64 6c 65 3b 0d 09 |...:.teh|andle;..|
|00000c40| 09 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 0d 09 09 |....begi|n.......|
|00000c50| 09 6d 79 77 20 3a 3d 20 | 67 65 74 6e 65 77 77 69 |.myw := |getnewwi|
|00000c60| 6e 64 6f 77 28 69 64 6e | 6f 2c 20 6e 69 6c 2c 20 |ndow(idn|o, nil, |
|00000c70| 70 6f 69 6e 74 65 72 28 | 2d 31 29 29 3b 0d 09 09 |pointer(|-1));...|
|00000c80| 09 73 65 74 70 6f 72 74 | 28 6d 79 77 29 3b 0d 09 |.setport|(myw);..|
|00000c90| 09 09 0d 09 09 09 72 20 | 3a 3d 20 6d 79 77 5e 2e |......r |:= myw^.|
|00000ca0| 70 6f 72 74 72 65 63 74 | 3b 0d 09 09 09 77 69 74 |portrect|;....wit|
|00000cb0| 68 20 72 20 64 6f 20 62 | 65 67 69 6e 0d 09 09 09 |h r do b|egin....|
|00000cc0| 09 74 6f 70 20 3a 3d 20 | 74 6f 70 20 2b 20 34 3b |.top := |top + 4;|
|00000cd0| 0d 09 09 09 09 6c 65 66 | 74 20 3a 3d 20 6c 65 66 |.....lef|t := lef|
|00000ce0| 74 20 2b 20 34 3b 0d 09 | 09 09 65 6e 64 3b 0d 09 |t + 4;..|..end;..|
|00000cf0| 09 09 61 74 65 20 3a 3d | 20 74 65 6e 65 77 28 72 |..ate :=| tenew(r|
|00000d00| 2c 20 72 29 3b 0d 09 09 | 09 0d 09 09 09 68 6e 64 |, r);...|.....hnd|
|00000d10| 6c 20 3a 3d 20 6e 65 77 | 68 61 6e 64 6c 65 28 34 |l := new|handle(4|
|00000d20| 29 3b 0d 09 09 09 6c 69 | 20 3a 3d 20 6c 6f 6e 67 |);....li| := long|
|00000d30| 70 74 72 28 68 6e 64 6c | 5e 29 3b 0d 09 09 09 6c |ptr(hndl|^);....l|
|00000d40| 69 5e 20 3a 3d 20 6c 6f | 6e 67 28 61 74 65 29 3b |i^ := lo|ng(ate);|
|00000d50| 0d 09 09 09 73 65 74 77 | 72 65 66 63 6f 6e 28 6d |....setw|refcon(m|
|00000d60| 79 77 2c 20 6c 6f 6e 67 | 28 68 6e 64 6c 29 29 3b |yw, long|(hndl));|
|00000d70| 0d 09 09 09 0d 09 09 09 | 73 65 74 75 70 66 6f 72 |........|setupfor|
|00000d80| 74 61 62 73 28 69 64 6e | 6f 2c 20 6d 79 77 29 3b |tabs(idn|o, myw);|
|00000d90| 0d 09 09 09 0d 09 09 09 | 73 65 74 75 70 74 65 78 |........|setuptex|
|00000da0| 74 77 69 6e 64 6f 77 20 | 3a 3d 20 6d 79 77 3b 0d |twindow |:= myw;.|
|00000db0| 09 09 0d 09 09 65 6e 64 | 3b 0d 09 0d 28 2a 2a 2a |.....end|;...(***|
|00000dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 0d 09 70 |********|***)...p|
|00000e10| 72 6f 63 65 64 75 72 65 | 20 69 6e 69 74 69 61 6c |rocedure| initial|
|00000e20| 69 7a 65 3b 0d 09 0d 09 | 09 76 61 72 0d 09 09 09 |ize;....|.var....|
|00000e30| 69 09 09 09 09 09 3a 09 | 69 6e 74 65 67 65 72 3b |i.....:.|integer;|
|00000e40| 0d 09 09 09 72 09 09 09 | 09 09 3a 09 72 65 63 74 |....r...|..:.rect|
|00000e50| 3b 0d 09 09 0d 09 09 62 | 65 67 69 6e 0d 09 09 09 |;......b|egin....|
|00000e60| 0d 09 09 09 69 6e 69 74 | 67 72 61 66 28 40 74 68 |....init|graf(@th|
|00000e70| 65 70 6f 72 74 29 3b 0d | 09 09 09 69 6e 69 74 66 |eport);.|...initf|
|00000e80| 6f 6e 74 73 3b 0d 09 09 | 09 69 6e 69 74 77 69 6e |onts;...|.initwin|
|00000e90| 64 6f 77 73 3b 0d 09 09 | 09 69 6e 69 74 6d 65 6e |dows;...|.initmen|
|00000ea0| 75 73 3b 0d 09 09 09 74 | 65 69 6e 69 74 3b 0d 09 |us;....t|einit;..|
|00000eb0| 09 09 69 6e 69 74 64 69 | 61 6c 6f 67 73 28 6e 69 |..initdi|alogs(ni|
|00000ec0| 6c 29 3b 0d 09 09 09 66 | 6c 75 73 68 65 76 65 6e |l);....f|lusheven|
|00000ed0| 74 73 28 65 76 65 72 79 | 65 76 65 6e 74 2c 20 30 |ts(every|event, 0|
|00000ee0| 29 3b 0d 09 09 09 0d 09 | 09 09 72 20 3a 3d 20 73 |);......|..r := s|
|00000ef0| 63 72 65 65 6e 62 69 74 | 73 2e 62 6f 75 6e 64 73 |creenbit|s.bounds|
|00000f00| 3b 0d 09 09 09 73 65 74 | 72 65 63 74 28 64 72 61 |;....set|rect(dra|
|00000f10| 67 61 72 65 61 2c 20 72 | 2e 6c 65 66 74 20 2b 20 |garea, r|.left + |
|00000f20| 34 2c 20 72 2e 74 6f 70 | 20 2b 20 32 34 2c 20 72 |4, r.top| + 24, r|
|00000f30| 2e 72 69 67 68 74 20 2d | 20 34 2c 20 72 2e 62 6f |.right -| 4, r.bo|
|00000f40| 74 74 6f 6d 20 2d 20 34 | 29 3b 0d 09 09 09 64 6f |ttom - 4|);....do|
|00000f50| 6e 65 20 3a 3d 20 66 61 | 6c 73 65 3b 0d 09 09 09 |ne := fa|lse;....|
|00000f60| 73 65 74 75 70 6d 65 6e | 75 73 3b 0d 09 09 09 0d |setupmen|us;.....|
|00000f70| 09 09 09 6d 79 77 69 6e | 64 6f 77 20 3a 3d 20 73 |...mywin|dow := s|
|00000f80| 65 74 75 70 74 65 78 74 | 77 69 6e 64 6f 77 28 77 |etuptext|window(w|
|00000f90| 69 6e 64 69 64 29 3b 0d | 09 09 09 6e 6f 77 74 61 |indid);.|...nowta|
|00000fa0| 62 73 20 3a 3d 20 74 61 | 62 68 61 6e 64 6c 65 28 |bs := ta|bhandle(|
|00000fb0| 67 65 74 77 72 65 66 63 | 6f 6e 28 6d 79 77 69 6e |getwrefc|on(mywin|
|00000fc0| 64 6f 77 29 29 3b 0d 09 | 09 09 6e 6f 77 74 65 20 |dow));..|..nowte |
|00000fd0| 3a 3d 20 6e 6f 77 74 61 | 62 73 5e 5e 2e 74 61 62 |:= nowta|bs^^.tab|
|00000fe0| 74 65 3b 0d 09 09 09 0d | 09 09 09 74 65 78 74 63 |te;.....|...textc|
|00000ff0| 75 72 73 6f 72 20 3a 3d | 20 67 65 74 63 75 72 73 |ursor :=| getcurs|
|00001000| 6f 72 28 69 62 65 61 6d | 63 75 72 73 6f 72 29 3b |or(ibeam|cursor);|
|00001010| 0d 09 09 09 68 6c 6f 63 | 6b 28 68 61 6e 64 6c 65 |....hloc|k(handle|
|00001020| 28 74 65 78 74 63 75 72 | 73 6f 72 29 29 3b 0d 09 |(textcur|sor));..|
|00001030| 09 09 69 6e 69 74 63 75 | 72 73 6f 72 3b 0d 09 09 |..initcu|rsor;...|
|00001040| 09 0d 09 09 09 67 6c 6f | 62 61 6c 61 37 30 20 3a |.....glo|bala70 :|
|00001050| 3d 20 6c 6f 6e 67 70 74 | 72 28 24 61 37 30 29 3b |= longpt|r($a70);|
|00001060| 0d 09 09 09 73 74 64 74 | 65 64 6f 74 65 78 74 20 |....stdt|edotext |
|00001070| 3a 3d 20 67 6c 6f 62 61 | 6c 61 37 30 5e 3b 0d 09 |:= globa|la70^;..|
|00001080| 09 09 67 6c 6f 62 61 6c | 61 37 30 5e 20 3a 3d 20 |..global|a70^ := |
|00001090| 6c 6f 6e 67 28 40 74 61 | 62 74 65 64 6f 74 65 78 |long(@ta|btedotex|
|000010a0| 74 29 3b 0d 09 09 09 0d | 09 09 09 67 6c 6f 62 61 |t);.....|...globa|
|000010b0| 6c 37 66 63 20 3a 3d 20 | 6c 6f 6e 67 70 74 72 28 |l7fc := |longptr(|
|000010c0| 24 37 66 63 29 3b 0d 09 | 09 09 73 74 64 6c 69 6e |$7fc);..|..stdlin|
|000010d0| 65 73 74 61 72 74 20 3a | 3d 20 67 6c 6f 62 61 6c |estart :|= global|
|000010e0| 37 66 63 5e 3b 0d 09 09 | 09 67 6c 6f 62 61 6c 37 |7fc^;...|.global7|
|000010f0| 66 63 5e 20 3a 3d 20 6c | 6f 6e 67 28 40 74 61 62 |fc^ := l|ong(@tab|
|00001100| 6c 69 6e 65 73 74 61 72 | 74 29 3b 0d 09 09 09 0d |linestar|t);.....|
|00001110| 09 09 09 73 65 74 73 74 | 64 70 72 6f 63 73 28 6d |...setst|dprocs(m|
|00001120| 79 71 64 70 72 6f 63 73 | 29 3b 0d 09 09 09 6d 79 |yqdprocs|);....my|
|00001130| 71 64 70 72 6f 63 73 2e | 74 78 6d 65 61 73 70 72 |qdprocs.|txmeaspr|
|00001140| 6f 63 20 3a 3d 20 40 74 | 61 62 74 78 6d 65 61 73 |oc := @t|abtxmeas|
|00001150| 3b 0d 09 09 09 6d 79 71 | 64 70 72 6f 63 73 2e 74 |;....myq|dprocs.t|
|00001160| 65 78 74 70 72 6f 63 20 | 3a 3d 20 40 74 61 62 74 |extproc |:= @tabt|
|00001170| 78 77 72 69 74 65 3b 0d | 09 09 0d 09 09 65 6e 64 |xwrite;.|.....end|
|00001180| 3b 0d 09 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;...(***|********|
|00001190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011d0| 2a 2a 2a 29 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |***)...p|rocedure|
|000011e0| 20 70 72 6f 63 65 73 73 | 6d 65 6e 75 28 63 6f 64 | process|menu(cod|
|000011f0| 65 77 6f 72 64 20 3a 20 | 6c 6f 6e 67 29 3b 0d 09 |eword : |long);..|
|00001200| 0d 09 09 76 61 72 0d 09 | 09 09 69 09 09 09 09 09 |...var..|..i.....|
|00001210| 3a 09 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 6d 65 |:.intege|r;....me|
|00001220| 6e 75 6e 6f 09 09 09 3a | 09 69 6e 74 65 67 65 72 |nuno...:|.integer|
|00001230| 3b 0d 09 09 09 69 74 65 | 6d 6e 6f 09 09 09 3a 09 |;....ite|mno...:.|
|00001240| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 6e 61 6d 65 |integer;|....name|
|00001250| 68 6f 6c 64 65 72 09 09 | 3a 09 73 74 72 32 35 35 |holder..|:.str255|
|00001260| 3b 0d 09 09 09 64 6e 61 | 09 09 09 09 3a 09 69 6e |;....dna|....:.in|
|00001270| 74 65 67 65 72 3b 0d 09 | 09 09 6f 75 72 64 6c 67 |teger;..|..ourdlg|
|00001280| 09 09 09 09 3a 09 64 69 | 61 6c 6f 67 70 74 72 3b |....:.di|alogptr;|
|00001290| 0d 09 09 0d 09 09 62 65 | 67 69 6e 0d 09 09 09 0d |......be|gin.....|
|000012a0| 09 09 09 69 66 20 63 6f | 64 65 77 6f 72 64 20 3c |...if co|deword <|
|000012b0| 3e 20 30 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |> 0 then| begin..|
|000012c0| 09 09 0d 09 09 09 09 6d | 65 6e 75 6e 6f 20 3a 3d |.......m|enuno :=|
|000012d0| 20 68 69 77 6f 72 64 28 | 63 6f 64 65 77 6f 72 64 | hiword(|codeword|
|000012e0| 29 3b 0d 09 09 09 09 69 | 74 65 6d 6e 6f 20 3a 3d |);.....i|temno :=|
|000012f0| 20 6c 6f 77 6f 72 64 28 | 63 6f 64 65 77 6f 72 64 | loword(|codeword|
|00001300| 29 3b 0d 09 09 09 09 0d | 09 09 09 09 63 61 73 65 |);......|....case|
|00001310| 20 6d 65 6e 75 6e 6f 20 | 6f 66 0d 09 09 09 09 09 | menuno |of......|
|00001320| 0d 09 09 09 09 09 61 70 | 70 6c 65 6d 65 6e 75 09 |......ap|plemenu.|
|00001330| 3a 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 0d 09 |:.begin.|........|
|00001340| 09 09 09 09 09 69 66 20 | 69 74 65 6d 6e 6f 20 3d |.....if |itemno =|
|00001350| 20 31 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 | 1 then |begin...|
|00001360| 09 09 09 09 09 6f 75 72 | 64 6c 67 20 3a 3d 20 67 |.....our|dlg := g|
|00001370| 65 74 6e 65 77 64 69 61 | 6c 6f 67 28 61 62 6f 75 |etnewdia|log(abou|
|00001380| 74 69 64 2c 20 6e 69 6c | 2c 20 70 6f 69 6e 74 65 |tid, nil|, pointe|
|00001390| 72 28 2d 31 29 29 3b 0d | 09 09 09 09 09 09 09 6d |r(-1));.|.......m|
|000013a0| 6f 64 61 6c 64 69 61 6c | 6f 67 28 6e 69 6c 2c 20 |odaldial|og(nil, |
|000013b0| 69 29 3b 0d 09 09 09 09 | 09 09 09 64 69 73 70 6f |i);.....|...dispo|
|000013c0| 73 64 69 61 6c 6f 67 28 | 6f 75 72 64 6c 67 29 3b |sdialog(|ourdlg);|
|000013d0| 0d 09 09 09 09 09 09 65 | 6e 64 20 65 6c 73 65 20 |.......e|nd else |
|000013e0| 62 65 67 69 6e 0d 09 09 | 09 09 09 09 09 67 65 74 |begin...|.....get|
|000013f0| 69 74 65 6d 28 67 65 74 | 6d 68 61 6e 64 6c 65 28 |item(get|mhandle(|
|00001400| 61 70 70 6c 65 6d 65 6e | 75 29 2c 20 69 74 65 6d |applemen|u), item|
|00001410| 6e 6f 2c 20 6e 61 6d 65 | 68 6f 6c 64 65 72 29 3b |no, name|holder);|
|00001420| 0d 09 09 09 09 09 09 09 | 64 6e 61 20 3a 3d 20 6f |........|dna := o|
|00001430| 70 65 6e 64 65 73 6b 61 | 63 63 28 6e 61 6d 65 68 |pendeska|cc(nameh|
|00001440| 6f 6c 64 65 72 29 3b 0d | 09 09 09 09 09 09 65 6e |older);.|......en|
|00001450| 64 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 09 65 6e |d;......|......en|
|00001460| 64 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 09 66 69 |d;......|......fi|
|00001470| 6c 65 6d 65 6e 75 09 09 | 3a 09 62 65 67 69 6e 0d |lemenu..|:.begin.|
|00001480| 09 09 09 09 09 09 0d 09 | 09 09 09 09 09 63 61 73 |........|.....cas|
|00001490| 65 20 69 74 65 6d 6e 6f | 20 6f 66 0d 09 09 09 09 |e itemno| of.....|
|000014a0| 09 09 09 31 09 3a 09 62 | 65 67 69 6e 0d 09 09 09 |...1.:.b|egin....|
|000014b0| 09 09 09 09 09 6d 79 77 | 69 6e 64 6f 77 20 3a 3d |.....myw|indow :=|
|000014c0| 20 73 65 74 75 70 74 65 | 78 74 77 69 6e 64 6f 77 | setupte|xtwindow|
|000014d0| 28 77 69 6e 64 69 64 29 | 3b 0d 09 09 09 09 09 09 |(windid)|;.......|
|000014e0| 09 09 6e 6f 77 74 61 62 | 73 20 3a 3d 20 74 61 62 |..nowtab|s := tab|
|000014f0| 68 61 6e 64 6c 65 28 67 | 65 74 77 72 65 66 63 6f |handle(g|etwrefco|
|00001500| 6e 28 6d 79 77 69 6e 64 | 6f 77 29 29 3b 0d 09 09 |n(mywind|ow));...|
|00001510| 09 09 09 09 09 09 6e 6f | 77 74 65 20 3a 3d 20 6e |......no|wte := n|
|00001520| 6f 77 74 61 62 73 5e 5e | 2e 74 61 62 74 65 3b 0d |owtabs^^|.tabte;.|
|00001530| 09 09 09 09 09 09 09 09 | 64 69 73 61 62 6c 65 69 |........|disablei|
|00001540| 74 65 6d 28 67 65 74 6d | 68 61 6e 64 6c 65 28 66 |tem(getm|handle(f|
|00001550| 69 6c 65 6d 65 6e 75 29 | 2c 20 31 29 3b 0d 09 09 |ilemenu)|, 1);...|
|00001560| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 09 09 |.....end|;.......|
|00001570| 09 32 09 3a 09 64 6f 6e | 65 20 3a 3d 20 74 72 75 |.2.:.don|e := tru|
|00001580| 65 3b 0d 09 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |e;......|.end;...|
|00001590| 09 09 09 0d 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |........|.end;...|
|000015a0| 09 09 09 0d 09 09 09 09 | 09 65 64 69 74 6d 65 6e |........|.editmen|
|000015b0| 75 09 09 3a 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |u..:.beg|in......|
|000015c0| 09 0d 09 09 09 09 09 09 | 69 66 20 6e 6f 74 20 73 |........|if not s|
|000015d0| 79 73 74 65 6d 65 64 69 | 74 28 69 74 65 6d 6e 6f |ystemedi|t(itemno|
|000015e0| 20 2d 20 31 29 20 74 68 | 65 6e 20 63 61 73 65 20 | - 1) th|en case |
|000015f0| 69 74 65 6d 6e 6f 20 6f | 66 0d 09 09 09 09 09 09 |itemno o|f.......|
|00001600| 09 33 09 3a 09 74 65 63 | 75 74 28 6e 6f 77 74 65 |.3.:.tec|ut(nowte|
|00001610| 29 3b 0d 09 09 09 09 09 | 09 09 34 09 3a 09 74 65 |);......|..4.:.te|
|00001620| 63 6f 70 79 28 6e 6f 77 | 74 65 29 3b 0d 09 09 09 |copy(now|te);....|
|00001630| 09 09 09 09 35 09 3a 09 | 74 65 70 61 73 74 65 28 |....5.:.|tepaste(|
|00001640| 6e 6f 77 74 65 29 3b 0d | 09 09 09 09 09 09 09 36 |nowte);.|.......6|
|00001650| 09 3a 09 74 65 64 65 6c | 65 74 65 28 6e 6f 77 74 |.:.tedel|ete(nowt|
|00001660| 65 29 3b 0d 09 09 09 09 | 09 09 65 6e 64 3b 0d 09 |e);.....|..end;..|
|00001670| 09 09 09 09 0d 09 09 09 | 09 09 65 6e 64 3b 0d 09 |........|..end;..|
|00001680| 09 09 09 0d 09 09 09 09 | 65 6e 64 3b 0d 09 09 09 |........|end;....|
|00001690| 09 0d 09 09 09 65 6e 64 | 3b 0d 09 09 09 0d 09 09 |.....end|;.......|
|000016a0| 09 68 69 6c 69 74 65 6d | 65 6e 75 28 30 29 3b 0d |.hilitem|enu(0);.|
|000016b0| 09 09 0d 09 09 65 6e 64 | 3b 0d 09 0d 28 2a 2a 2a |.....end|;...(***|
|000016c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 0d 09 70 |********|***)...p|
|00001710| 72 6f 63 65 64 75 72 65 | 20 6d 6f 75 73 65 64 6f |rocedure| mousedo|
|00001720| 77 6e 73 28 65 76 65 6e | 74 20 3a 20 65 76 65 6e |wns(even|t : even|
|00001730| 74 72 65 63 6f 72 64 29 | 3b 0d 09 0d 09 09 76 61 |trecord)|;.....va|
|00001740| 72 0d 09 09 09 70 6f 69 | 6e 74 65 64 74 6f 09 09 |r....poi|ntedto..|
|00001750| 09 3a 09 77 69 6e 64 6f | 77 70 74 72 3b 0d 09 09 |.:.windo|wptr;...|
|00001760| 09 6d 6f 75 73 65 6c 6f | 63 09 09 09 3a 09 70 6f |.mouselo|c...:.po|
|00001770| 69 6e 74 3b 0d 09 09 09 | 77 69 6e 64 6f 77 6c 6f |int;....|windowlo|
|00001780| 63 09 09 3a 09 69 6e 74 | 65 67 65 72 3b 0d 09 09 |c..:.int|eger;...|
|00001790| 0d 09 09 62 65 67 69 6e | 0d 09 09 09 0d 09 09 09 |...begin|........|
|000017a0| 6d 6f 75 73 65 6c 6f 63 | 20 3a 3d 20 65 76 65 6e |mouseloc| := even|
|000017b0| 74 2e 77 68 65 72 65 3b | 0d 09 09 09 77 69 6e 64 |t.where;|....wind|
|000017c0| 6f 77 6c 6f 63 20 3a 3d | 20 66 69 6e 64 77 69 6e |owloc :=| findwin|
|000017d0| 64 6f 77 28 6d 6f 75 73 | 65 6c 6f 63 2c 20 70 6f |dow(mous|eloc, po|
|000017e0| 69 6e 74 65 64 74 6f 29 | 3b 0d 09 09 09 0d 09 09 |intedto)|;.......|
|000017f0| 09 63 61 73 65 20 77 69 | 6e 64 6f 77 6c 6f 63 20 |.case wi|ndowloc |
|00001800| 6f 66 0d 09 09 09 09 0d | 09 09 09 09 69 6e 6d 65 |of......|....inme|
|00001810| 6e 75 62 61 72 09 3a 09 | 70 72 6f 63 65 73 73 6d |nubar.:.|processm|
|00001820| 65 6e 75 28 6d 65 6e 75 | 73 65 6c 65 63 74 28 6d |enu(menu|select(m|
|00001830| 6f 75 73 65 6c 6f 63 29 | 29 3b 0d 09 09 09 09 69 |ouseloc)|);.....i|
|00001840| 6e 73 79 73 77 69 6e 64 | 6f 77 09 3a 09 73 79 73 |nsyswind|ow.:.sys|
|00001850| 74 65 6d 63 6c 69 63 6b | 28 65 76 65 6e 74 2c 20 |temclick|(event, |
|00001860| 70 6f 69 6e 74 65 64 74 | 6f 29 3b 0d 09 09 09 09 |pointedt|o);.....|
|00001870| 0d 09 09 09 6f 74 68 65 | 72 77 69 73 65 0d 09 09 |....othe|rwise...|
|00001880| 09 09 69 66 20 70 6f 69 | 6e 74 65 64 74 6f 20 3c |..if poi|ntedto <|
|00001890| 3e 20 66 72 6f 6e 74 77 | 69 6e 64 6f 77 20 74 68 |> frontw|indow th|
|000018a0| 65 6e 0d 09 09 09 09 09 | 73 65 6c 65 63 74 77 69 |en......|selectwi|
|000018b0| 6e 64 6f 77 28 70 6f 69 | 6e 74 65 64 74 6f 29 0d |ndow(poi|ntedto).|
|000018c0| 09 09 09 09 65 6c 73 65 | 20 63 61 73 65 20 77 69 |....else| case wi|
|000018d0| 6e 64 6f 77 6c 6f 63 20 | 6f 66 0d 09 09 09 09 09 |ndowloc |of......|
|000018e0| 0d 09 09 09 09 09 69 6e | 63 6f 6e 74 65 6e 74 09 |......in|content.|
|000018f0| 09 3a 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 67 |.:.begin|.......g|
|00001900| 6c 6f 62 61 6c 74 6f 6c | 6f 63 61 6c 28 6d 6f 75 |lobaltol|ocal(mou|
|00001910| 73 65 6c 6f 63 29 3b 0d | 09 09 09 09 09 09 69 66 |seloc);.|......if|
|00001920| 20 62 69 74 61 6e 64 28 | 65 76 65 6e 74 2e 6d 6f | bitand(|event.mo|
|00001930| 64 69 66 69 65 72 73 2c | 20 73 68 69 66 74 6b 65 |difiers,| shiftke|
|00001940| 79 29 20 3d 20 73 68 69 | 66 74 6b 65 79 20 74 68 |y) = shi|ftkey th|
|00001950| 65 6e 0d 09 09 09 09 09 | 09 09 74 65 63 6c 69 63 |en......|..teclic|
|00001960| 6b 28 6d 6f 75 73 65 6c | 6f 63 2c 20 74 72 75 65 |k(mousel|oc, true|
|00001970| 2c 20 6e 6f 77 74 65 29 | 0d 09 09 09 09 09 09 65 |, nowte)|.......e|
|00001980| 6c 73 65 0d 09 09 09 09 | 09 09 09 74 65 63 6c 69 |lse.....|...tecli|
|00001990| 63 6b 28 6d 6f 75 73 65 | 6c 6f 63 2c 20 66 61 6c |ck(mouse|loc, fal|
|000019a0| 73 65 2c 20 6e 6f 77 74 | 65 29 3b 0d 09 09 09 09 |se, nowt|e);.....|
|000019b0| 09 65 6e 64 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |.end;...|........|
|000019c0| 09 69 6e 64 72 61 67 09 | 09 3a 09 64 72 61 67 77 |.indrag.|.:.dragw|
|000019d0| 69 6e 64 6f 77 28 70 6f | 69 6e 74 65 64 74 6f 2c |indow(po|intedto,|
|000019e0| 20 6d 6f 75 73 65 6c 6f | 63 2c 20 64 72 61 67 61 | mouselo|c, draga|
|000019f0| 72 65 61 29 3b 0d 09 09 | 09 09 09 0d 09 09 09 09 |rea);...|........|
|00001a00| 09 69 6e 67 6f 61 77 61 | 79 09 09 3a 09 69 66 20 |.ingoawa|y..:.if |
|00001a10| 74 72 61 63 6b 67 6f 61 | 77 61 79 28 70 6f 69 6e |trackgoa|way(poin|
|00001a20| 74 65 64 74 6f 2c 20 6d | 6f 75 73 65 6c 6f 63 29 |tedto, m|ouseloc)|
|00001a30| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 09 | then be|gin.....|
|00001a40| 09 09 74 65 64 69 73 70 | 6f 73 65 28 6e 6f 77 74 |..tedisp|ose(nowt|
|00001a50| 65 29 3b 0d 09 09 09 09 | 09 09 64 69 73 70 6f 73 |e);.....|..dispos|
|00001a60| 68 61 6e 64 6c 65 28 68 | 61 6e 64 6c 65 28 6e 6f |handle(h|andle(no|
|00001a70| 77 74 61 62 73 29 29 3b | 0d 09 09 09 09 09 09 6e |wtabs));|.......n|
|00001a80| 6f 77 74 61 62 73 20 3a | 3d 20 6e 69 6c 3b 0d 09 |owtabs :|= nil;..|
|00001a90| 09 09 09 09 09 64 69 73 | 70 6f 73 65 77 69 6e 64 |.....dis|posewind|
|00001aa0| 6f 77 28 70 6f 69 6e 74 | 65 64 74 6f 29 3b 0d 09 |ow(point|edto);..|
|00001ab0| 09 09 09 09 09 65 6e 61 | 62 6c 65 69 74 65 6d 28 |.....ena|bleitem(|
|00001ac0| 67 65 74 6d 68 61 6e 64 | 6c 65 28 66 69 6c 65 6d |getmhand|le(filem|
|00001ad0| 65 6e 75 29 2c 20 31 29 | 3b 0d 09 09 09 09 09 65 |enu), 1)|;......e|
|00001ae0| 6e 64 3b 0d 09 09 09 09 | 0d 09 09 09 09 65 6e 64 |nd;.....|.....end|
|00001af0| 3b 0d 09 09 09 09 09 0d | 09 09 09 65 6e 64 3b 0d |;.......|...end;.|
|00001b00| 09 09 0d 09 09 65 6e 64 | 3b 0d 09 0d 28 2a 2a 2a |.....end|;...(***|
|00001b10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d 0d 09 70 |********|***)...p|
|00001b60| 72 6f 63 65 64 75 72 65 | 20 6b 65 79 64 6f 77 6e |rocedure| keydown|
|00001b70| 73 28 65 76 65 6e 74 20 | 3a 20 65 76 65 6e 74 72 |s(event |: eventr|
|00001b80| 65 63 6f 72 64 29 3b 0d | 09 0d 09 09 76 61 72 0d |ecord);.|....var.|
|00001b90| 09 09 09 63 68 61 72 63 | 6f 64 65 09 09 09 3a 09 |...charc|ode...:.|
|00001ba0| 63 68 61 72 3b 0d 09 09 | 0d 09 09 62 65 67 69 6e |char;...|...begin|
|00001bb0| 0d 09 09 09 0d 09 09 09 | 63 68 61 72 63 6f 64 65 |........|charcode|
|00001bc0| 20 3a 3d 20 63 68 72 28 | 62 69 74 61 6e 64 28 65 | := chr(|bitand(e|
|00001bd0| 76 65 6e 74 2e 6d 65 73 | 73 61 67 65 2c 20 63 68 |vent.mes|sage, ch|
|00001be0| 61 72 63 6f 64 65 6d 61 | 73 6b 29 29 3b 0d 09 09 |arcodema|sk));...|
|00001bf0| 09 0d 09 09 09 69 66 20 | 62 69 74 61 6e 64 28 65 |.....if |bitand(e|
|00001c00| 76 65 6e 74 2e 6d 6f 64 | 69 66 69 65 72 73 2c 20 |vent.mod|ifiers, |
|00001c10| 63 6d 64 6b 65 79 29 20 | 3d 20 63 6d 64 6b 65 79 |cmdkey) |= cmdkey|
|00001c20| 20 74 68 65 6e 0d 09 09 | 09 09 70 72 6f 63 65 73 | then...|..proces|
|00001c30| 73 6d 65 6e 75 28 6d 65 | 6e 75 6b 65 79 28 63 68 |smenu(me|nukey(ch|
|00001c40| 61 72 63 6f 64 65 29 29 | 0d 09 09 09 65 6c 73 65 |arcode))|....else|
|00001c50| 0d 09 09 09 09 74 65 6b | 65 79 28 63 68 61 72 63 |.....tek|ey(charc|
|00001c60| 6f 64 65 2c 20 6e 6f 77 | 74 65 29 3b 0d 09 09 0d |ode, now|te);....|
|00001c70| 09 09 65 6e 64 3b 0d 09 | 0d 28 2a 2a 2a 2a 2a 2a |..end;..|.(******|
|00001c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 29 0d 0d 09 70 72 6f 63 |********|)...proc|
|00001cd0| 65 64 75 72 65 20 61 63 | 74 69 76 61 74 65 73 28 |edure ac|tivates(|
|00001ce0| 65 76 65 6e 74 20 3a 20 | 65 76 65 6e 74 72 65 63 |event : |eventrec|
|00001cf0| 6f 72 64 29 3b 0d 09 0d | 09 09 76 61 72 0d 09 09 |ord);...|..var...|
|00001d00| 09 74 61 72 67 65 74 77 | 69 6e 64 6f 77 09 3a 09 |.targetw|indow.:.|
|00001d10| 77 69 6e 64 6f 77 70 74 | 72 3b 0d 09 09 09 61 63 |windowpt|r;....ac|
|00001d20| 74 69 76 65 09 09 09 09 | 3a 09 6c 6f 67 69 63 61 |tive....|:.logica|
|00001d30| 6c 3b 0d 09 09 09 61 68 | 6e 64 6c 09 09 09 09 3a |l;....ah|ndl....:|
|00001d40| 09 68 61 6e 64 6c 65 3b | 0d 09 09 0d 09 09 62 65 |.handle;|......be|
|00001d50| 67 69 6e 0d 09 09 09 0d | 09 09 09 74 61 72 67 65 |gin.....|...targe|
|00001d60| 74 77 69 6e 64 6f 77 20 | 3a 3d 20 77 69 6e 64 6f |twindow |:= windo|
|00001d70| 77 70 74 72 28 65 76 65 | 6e 74 2e 6d 65 73 73 61 |wptr(eve|nt.messa|
|00001d80| 67 65 29 3b 0d 09 09 09 | 61 63 74 69 76 65 20 3a |ge);....|active :|
|00001d90| 3d 20 6f 64 64 28 65 76 | 65 6e 74 2e 6d 6f 64 69 |= odd(ev|ent.modi|
|00001da0| 66 69 65 72 73 29 3b 0d | 09 09 09 0d 09 09 09 69 |fiers);.|.......i|
|00001db0| 66 20 61 63 74 69 76 65 | 20 74 68 65 6e 20 62 65 |f active| then be|
|00001dc0| 67 69 6e 0d 09 09 09 09 | 73 65 74 70 6f 72 74 28 |gin.....|setport(|
|00001dd0| 74 61 72 67 65 74 77 69 | 6e 64 6f 77 29 3b 0d 09 |targetwi|ndow);..|
|00001de0| 09 09 09 6e 6f 77 74 61 | 62 73 20 3a 3d 20 74 61 |...nowta|bs := ta|
|00001df0| 62 68 61 6e 64 6c 65 28 | 67 65 74 77 72 65 66 63 |bhandle(|getwrefc|
|00001e00| 6f 6e 28 74 61 72 67 65 | 74 77 69 6e 64 6f 77 29 |on(targe|twindow)|
|00001e10| 29 3b 0d 09 09 09 09 6e | 6f 77 74 65 20 3a 3d 20 |);.....n|owte := |
|00001e20| 6e 6f 77 74 61 62 73 5e | 5e 2e 74 61 62 74 65 3b |nowtabs^|^.tabte;|
|00001e30| 0d 09 09 09 09 74 65 61 | 63 74 69 76 61 74 65 28 |.....tea|ctivate(|
|00001e40| 6e 6f 77 74 65 29 3b 0d | 09 09 09 65 6e 64 20 65 |nowte);.|...end e|
|00001e50| 6c 73 65 20 62 65 67 69 | 6e 0d 09 09 09 09 74 65 |lse begi|n.....te|
|00001e60| 64 65 61 63 74 69 76 61 | 74 65 28 6e 6f 77 74 65 |deactiva|te(nowte|
|00001e70| 29 3b 0d 09 09 09 09 6e | 6f 77 74 61 62 73 20 3a |);.....n|owtabs :|
|00001e80| 3d 20 6e 69 6c 3b 0d 09 | 09 09 65 6e 64 3b 0d 09 |= nil;..|..end;..|
|00001e90| 09 0d 09 09 65 6e 64 3b | 0d 09 0d 28 2a 2a 2a 2a |....end;|...(****|
|00001ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0d 0d 09 70 72 |********|**)...pr|
|00001ef0| 6f 63 65 64 75 72 65 20 | 75 70 64 61 74 65 73 28 |ocedure |updates(|
|00001f00| 65 76 65 6e 74 20 3a 20 | 65 76 65 6e 74 72 65 63 |event : |eventrec|
|00001f10| 6f 72 64 29 3b 0d 09 0d | 09 09 76 61 72 0d 09 09 |ord);...|..var...|
|00001f20| 09 75 70 64 61 74 65 77 | 69 6e 64 6f 77 09 3a 09 |.updatew|indow.:.|
|00001f30| 77 69 6e 64 6f 77 70 74 | 72 3b 0d 09 09 09 73 61 |windowpt|r;....sa|
|00001f40| 76 65 70 6f 72 74 09 09 | 09 3a 09 77 69 6e 64 6f |veport..|.:.windo|
|00001f50| 77 70 74 72 3b 0d 09 09 | 09 74 65 6d 70 74 61 62 |wptr;...|.temptab|
|00001f60| 73 09 09 09 3a 09 74 61 | 62 68 61 6e 64 6c 65 3b |s...:.ta|bhandle;|
|00001f70| 0d 09 09 0d 09 09 62 65 | 67 69 6e 0d 09 09 09 0d |......be|gin.....|
|00001f80| 09 09 09 75 70 64 61 74 | 65 77 69 6e 64 6f 77 20 |...updat|ewindow |
|00001f90| 3a 3d 20 77 69 6e 64 6f | 77 70 74 72 28 65 76 65 |:= windo|wptr(eve|
|00001fa0| 6e 74 2e 6d 65 73 73 61 | 67 65 29 3b 0d 09 09 09 |nt.messa|ge);....|
|00001fb0| 67 65 74 70 6f 72 74 28 | 73 61 76 65 70 6f 72 74 |getport(|saveport|
|00001fc0| 29 3b 0d 09 09 09 74 65 | 6d 70 74 61 62 73 20 3a |);....te|mptabs :|
|00001fd0| 3d 20 6e 6f 77 74 61 62 | 73 3b 0d 09 09 09 73 65 |= nowtab|s;....se|
|00001fe0| 74 70 6f 72 74 28 75 70 | 64 61 74 65 77 69 6e 64 |tport(up|datewind|
|00001ff0| 6f 77 29 3b 0d 09 09 09 | 6e 6f 77 74 61 62 73 20 |ow);....|nowtabs |
|00002000| 3a 3d 20 74 61 62 68 61 | 6e 64 6c 65 28 67 65 74 |:= tabha|ndle(get|
|00002010| 77 72 65 66 63 6f 6e 28 | 75 70 64 61 74 65 77 69 |wrefcon(|updatewi|
|00002020| 6e 64 6f 77 29 29 3b 0d | 09 09 09 0d 09 09 09 62 |ndow));.|.......b|
|00002030| 65 67 69 6e 75 70 64 61 | 74 65 28 75 70 64 61 74 |eginupda|te(updat|
|00002040| 65 77 69 6e 64 6f 77 29 | 3b 0d 09 09 09 65 72 61 |ewindow)|;....era|
|00002050| 73 65 72 65 63 74 28 75 | 70 64 61 74 65 77 69 6e |serect(u|pdatewin|
|00002060| 64 6f 77 5e 2e 76 69 73 | 72 67 6e 5e 5e 2e 72 67 |dow^.vis|rgn^^.rg|
|00002070| 6e 62 62 6f 78 29 3b 0d | 09 09 09 77 69 74 68 20 |nbbox);.|...with |
|00002080| 6e 6f 77 74 61 62 73 5e | 5e 20 64 6f 0d 09 09 09 |nowtabs^|^ do....|
|00002090| 09 74 65 75 70 64 61 74 | 65 28 74 61 62 74 65 5e |.teupdat|e(tabte^|
|000020a0| 5e 2e 76 69 65 77 72 65 | 63 74 2c 20 74 61 62 74 |^.viewre|ct, tabt|
|000020b0| 65 29 3b 0d 09 09 09 65 | 6e 64 75 70 64 61 74 65 |e);....e|ndupdate|
|000020c0| 28 75 70 64 61 74 65 77 | 69 6e 64 6f 77 29 3b 0d |(updatew|indow);.|
|000020d0| 09 09 09 0d 09 09 09 73 | 65 74 70 6f 72 74 28 73 |.......s|etport(s|
|000020e0| 61 76 65 70 6f 72 74 29 | 3b 0d 09 09 09 6e 6f 77 |aveport)|;....now|
|000020f0| 74 61 62 73 20 3a 3d 20 | 74 65 6d 70 74 61 62 73 |tabs := |temptabs|
|00002100| 3b 0d 09 09 0d 09 09 65 | 6e 64 3b 0d 09 0d 28 2a |;......e|nd;...(*|
|00002110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 0d |********|*****)..|
|00002160| 09 70 72 6f 63 65 64 75 | 72 65 20 6d 61 69 6e 65 |.procedu|re maine|
|00002170| 76 65 6e 74 6c 6f 6f 70 | 3b 0d 09 0d 09 09 76 61 |ventloop|;.....va|
|00002180| 72 0d 09 09 09 65 76 65 | 6e 74 09 09 09 09 3a 09 |r....eve|nt....:.|
|00002190| 65 76 65 6e 74 72 65 63 | 6f 72 64 3b 0d 09 09 09 |eventrec|ord;....|
|000021a0| 6d 6f 75 73 65 70 74 09 | 09 09 3a 09 70 6f 69 6e |mousept.|..:.poin|
|000021b0| 74 3b 0d 09 09 0d 09 09 | 62 65 67 69 6e 0d 09 09 |t;......|begin...|
|000021c0| 09 0d 09 09 09 72 65 70 | 65 61 74 0d 09 09 09 09 |.....rep|eat.....|
|000021d0| 0d 09 09 09 09 73 79 73 | 74 65 6d 74 61 73 6b 3b |.....sys|temtask;|
|000021e0| 0d 09 09 09 09 0d 09 09 | 09 09 69 66 20 6d 79 77 |........|..if myw|
|000021f0| 69 6e 64 6f 77 20 3d 20 | 66 72 6f 6e 74 77 69 6e |indow = |frontwin|
|00002200| 64 6f 77 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |dow then| begin..|
|00002210| 09 09 09 09 67 65 74 6d | 6f 75 73 65 28 6d 6f 75 |....getm|ouse(mou|
|00002220| 73 65 70 74 29 3b 0d 09 | 09 09 09 09 69 66 20 70 |sept);..|....if p|
|00002230| 74 69 6e 72 65 63 74 28 | 6d 6f 75 73 65 70 74 2c |tinrect(|mousept,|
|00002240| 20 6e 6f 77 74 65 5e 5e | 2e 76 69 65 77 72 65 63 | nowte^^|.viewrec|
|00002250| 74 29 20 74 68 65 6e 0d | 09 09 09 09 09 09 73 65 |t) then.|......se|
|00002260| 74 63 75 72 73 6f 72 28 | 74 65 78 74 63 75 72 73 |tcursor(|textcurs|
|00002270| 6f 72 5e 5e 29 0d 09 09 | 09 09 09 65 6c 73 65 0d |or^^)...|...else.|
|00002280| 09 09 09 09 09 09 73 65 | 74 63 75 72 73 6f 72 28 |......se|tcursor(|
|00002290| 61 72 72 6f 77 29 3b 0d | 09 09 09 09 09 74 65 69 |arrow);.|.....tei|
|000022a0| 64 6c 65 28 6e 6f 77 74 | 65 29 3b 0d 09 09 09 09 |dle(nowt|e);.....|
|000022b0| 65 6e 64 3b 0d 09 09 09 | 09 0d 09 09 09 09 69 66 |end;....|......if|
|000022c0| 20 67 65 74 6e 65 78 74 | 65 76 65 6e 74 28 65 76 | getnext|event(ev|
|000022d0| 65 72 79 65 76 65 6e 74 | 2c 20 65 76 65 6e 74 29 |eryevent|, event)|
|000022e0| 20 74 68 65 6e 0d 09 09 | 09 09 09 63 61 73 65 20 | then...|...case |
|000022f0| 65 76 65 6e 74 2e 77 68 | 61 74 20 6f 66 0d 09 09 |event.wh|at of...|
|00002300| 09 09 09 09 6d 6f 75 73 | 65 64 6f 77 6e 09 09 3a |....mous|edown..:|
|00002310| 09 6d 6f 75 73 65 64 6f | 77 6e 73 28 65 76 65 6e |.mousedo|wns(even|
|00002320| 74 29 3b 0d 09 09 09 09 | 09 09 6b 65 79 64 6f 77 |t);.....|..keydow|
|00002330| 6e 09 09 09 3a 09 6b 65 | 79 64 6f 77 6e 73 28 65 |n...:.ke|ydowns(e|
|00002340| 76 65 6e 74 29 3b 0d 09 | 09 09 09 09 09 61 75 74 |vent);..|.....aut|
|00002350| 6f 6b 65 79 09 09 09 3a | 09 6b 65 79 64 6f 77 6e |okey...:|.keydown|
|00002360| 73 28 65 76 65 6e 74 29 | 3b 0d 09 09 09 09 09 09 |s(event)|;.......|
|00002370| 61 63 74 69 76 61 74 65 | 65 76 74 09 09 3a 09 61 |activate|evt..:.a|
|00002380| 63 74 69 76 61 74 65 73 | 28 65 76 65 6e 74 29 3b |ctivates|(event);|
|00002390| 0d 09 09 09 09 09 09 75 | 70 64 61 74 65 65 76 74 |.......u|pdateevt|
|000023a0| 09 09 3a 09 75 70 64 61 | 74 65 73 28 65 76 65 6e |..:.upda|tes(even|
|000023b0| 74 29 3b 0d 09 09 09 09 | 09 65 6e 64 3b 0d 09 09 |t);.....|.end;...|
|000023c0| 09 0d 09 09 09 75 6e 74 | 69 6c 20 64 6f 6e 65 3b |.....unt|il done;|
|000023d0| 0d 09 09 0d 09 09 65 6e | 64 3b 0d 09 0d 28 2a 2a |......en|d;...(**|
|000023e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0d 0d 09 |********|****)...|
|00002430| 09 62 65 67 69 6e 0d 09 | 09 09 0d 09 09 09 69 6e |.begin..|......in|
|00002440| 69 74 69 61 6c 69 7a 65 | 3b 0d 09 09 09 6d 61 69 |itialize|;....mai|
|00002450| 6e 65 76 65 6e 74 6c 6f | 6f 70 3b 0d 09 09 09 67 |neventlo|op;....g|
|00002460| 6c 6f 62 61 6c 61 37 30 | 5e 20 3a 3d 20 73 74 64 |lobala70|^ := std|
|00002470| 74 65 64 6f 74 65 78 74 | 3b 0d 09 09 09 67 6c 6f |tedotext|;....glo|
|00002480| 62 61 6c 37 66 63 5e 20 | 3a 3d 20 73 74 64 6c 69 |bal7fc^ |:= stdli|
|00002490| 6e 65 73 74 61 72 74 3b | 0d 09 09 0d 09 09 65 6e |nestart;|......en|
|000024a0| 64 2e 0d 09 0d 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |d....(**|********|
|000024b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024f0| 2a 2a 2a 2a 29 0d 00 00 | 00 00 00 00 00 00 00 00 |****)...|........|
|00002500| 00 00 01 00 00 00 01 17 | 00 00 00 17 00 00 00 46 |........|.......F|
|00002510| 61 6c 73 3b 0d 09 09 69 | 6e 69 74 6f 75 74 6c 69 |als;...i|nitoutli|
|00002520| 6e 65 3b 0d 09 09 6d 61 | 69 6e 6c 6f 6f 70 3b 0d |ne;...ma|inloop;.|
|00002530| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|00002540| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|00002550| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 a5 f4 98 10 00 00 | 24 76 00 00 01 5d 2a 2a |........|$v...]**|
|00002580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0d ff 80 7f |********|***)....|
|00002590| ff ff 80 7f 80 7f 88 7e | 00 1f 88 7c 00 0f 88 78 |.......~|...|...x|
|000025a0| 1c 07 80 78 1c 07 80 70 | 1c 03 80 70 1c 03 80 70 |...x...p|...p...p|
|000025b0| 1c 03 80 70 1c 03 80 70 | 1c 03 80 70 1c 03 80 70 |...p...p|...p...p|
|000025c0| 1c 03 80 70 1c 03 80 70 | 1c 03 80 70 1c 03 87 f0 |...p...p|...p....|
|000025d0| 00 03 81 f0 1c 03 81 f0 | 1c 07 81 f0 1c 07 81 f0 |........|........|
|000025e0| 00 0f 81 e0 00 1f 8f 80 | 00 7f 81 ff ff ff 81 ff |........|........|
|000025f0| ff ff 81 ff ff ff 81 ff | ff ff ff ff ff ff 00 00 |........|........|
|00002600| 00 00 00 0b 00 0a 07 53 | 65 61 74 74 6c 65 00 00 |.......S|eattle..|
|00002610| 00 00 04 00 04 00 05 00 | 00 01 00 00 00 01 17 00 |........|........|
|00002620| 00 00 17 00 00 00 46 00 | 00 cc 24 02 f2 00 00 00 |......F.|..$.....|
|00002630| 1c 00 46 00 01 45 46 4e | 54 00 00 00 12 45 54 41 |..F..EFN|T....ETA|
|00002640| 42 00 00 00 1e 03 eb ff | ff 00 00 00 00 00 00 d1 |B.......|........|
|00002650| 44 03 ec ff ff 00 00 00 | 0f 00 00 d1 48 00 00 00 |D.......|....H...|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
